#!perl
use strict;
use warnings;
use threads;

use TaskMgr;

#$SIG{INT} = sub { 
#   die "DataMgr!"; 
#};

#my $thread = threads->new(sub { local $SIG{INT} = sub {die "helo" }; while(1) {} });
#$thread->join();
my $taskmgr = TaskMgr->getInstance;
$taskmgr->run;
